home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / EasyPLUGINs / examples / space_demo.e < prev    next >
Encoding:
Text File  |  1998-03-10  |  2.4 KB  |  69 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS, OSVERSION=37
  7.  
  8. MODULE 'tools/easygui', 'easyplugins/space',
  9.        'utility', 'utility/tagitem'
  10.  
  11. DEF space_1:PTR TO space_plugin,
  12.     space_2:PTR TO space_plugin,
  13.     space_3:PTR TO space_plugin,
  14.     space_4:PTR TO space_plugin
  15.  
  16. PROC main() HANDLE
  17.  
  18.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  19.  
  20.     NEW space_1.space([PLA_Space_Width,   32,
  21.                        PLA_Space_Height,  16,
  22.                        TAG_DONE])
  23.  
  24.     NEW space_2.space([PLA_Space_Width,   32,
  25.                        PLA_Space_Height,  16,
  26.                        PLA_Space_ResizeX, TRUE,
  27.                        TAG_DONE])
  28.  
  29.     NEW space_3.space([PLA_Space_Width,   32,
  30.                        PLA_Space_Height,  16,
  31.                        PLA_Space_ResizeY, TRUE,
  32.                        TAG_DONE])
  33.  
  34.     NEW space_4.space([PLA_Space_Width,   32,
  35.                        PLA_Space_Height,  16,
  36.                        PLA_Space_ResizeX, TRUE,
  37.                        PLA_Space_ResizeY, TRUE,
  38.                        TAG_DONE])
  39.  
  40.     easyguiA('space_plugin example', [ROWS,
  41.                                          [COLS,
  42.                                              [ROWS,
  43.                                                  [TEXT, '32 x 16, No Resize', NIL, TRUE, 1],
  44.                                                  [BEVELR, [PLUGIN, 1, space_1]],
  45.                                                  [BAR],
  46.                                                  [TEXT, '32 x 16, Resize X', NIL, TRUE, 1],
  47.                                                  [BEVELR, [PLUGIN, 1, space_2]]
  48.                                              ],
  49.                                              [BAR],
  50.                                              [ROWS,
  51.                                                  [TEXT, '32 x 16, Resize Y', NIL, TRUE, 1],
  52.                                                  [BEVELR, [PLUGIN, 1, space_3]],
  53.                                                  [BAR],
  54.                                                  [TEXT, '32 x 16, Resize X & Y', NIL, TRUE, 1],
  55.                                                  [BEVELR, [PLUGIN, 1, space_4]]
  56.                                              ]
  57.                                          ],
  58.                                          [SBUTTON, 0, 'Quit']
  59.                                      ])
  60.  
  61. EXCEPT DO
  62.  
  63.     END space_1, space_2, space_3, space_4
  64.  
  65.     IF utilitybase THEN CloseLibrary(utilitybase)
  66.  
  67. ENDPROC
  68.  
  69.